﻿'Observable Abstract Class
Public MustInherit Class Observable

    Private _observadores As New List(Of IObservador)

    Public Sub agregarObservador(o As IObservador)
        _observadores.Add(o)
    End Sub

    Public Sub eliminarObservador(o As IObservador)
        _observadores.Remove(o)
    End Sub

    Public Sub notificarObservadores()
        For Each obs As IObservador In _observadores
            obs.Actualizar()
        Next
    End Sub

End Class
